home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cad403.sfx / W (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  3KB  |  60 lines
  1. 1 POKE40448,255:FORT=1TO4:READA:POKE828+T,A:NEXT
  2. 2 DATA46,70,73,71
  3. 3 FORI=0TO62:READA:POKE17984+I,A:NEXT:RESTORE:GOTO20
  4. 4 DATA 255,255,255,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1
  5. 5 DATA 128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1
  6. 6 DATA 128,0,1,128,0,1,128,0,1,255,255,255
  7. 7 X=X+USR(121):Y=Y-USR(122)
  8. 8 IFX>343THENX=X-343
  9. 9 IFX<1THENX=X+343
  10. 10 IFY>249THENY=Y-220
  11. 11 IFY<30THENY=Y+220
  12. 12 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
  13. 13 OPEN15,D0,15,"I0":CLOSE15:RETURN
  14. 14 A=USR(117):IF(A<>16)THENRETURN
  15. 15 POKEO-3,0:IFX>255THENPOKEO-3,1:POKEO-2,X-256:GOTO17
  16. 16 POKEO-2,X
  17. 17 POKEO-4,Y:IFMODE=1THEN19
  18. 18 POKEO-5,MODE:MODE=1:SYSO:RETURN
  19. 19 SYS36864:POKEO-5,MODE:MODE=0:SYSO:RETURN
  20. 20 O=4110:MODE=0:A=USR(39),0,25:A=USR(32),0
  21. 21 GOSUB14:GOSUB7:GETA$:IFA$=""THEN21
  22. 22 IFA$=CHR$(20)THENSYS36885:GOTO21
  23. 23 IFA$="[147]"THENSYS36888:GOTO21
  24. 24 IFA$="!"THENSYS36867:GOTO21
  25. 25 IFA$="="THENSYS36882:GOTO21
  26. 26 IFA$="&"THENSYS36879:GOTO21
  27. 27 IFA$="#"THENSYS36876:GOTO21
  28. 28 IFA$="[137]"THEN32
  29. 29 IFA$=CHR$(136)THEN52
  30. 30 IFA$=CHR$(140)THENGOSUB56
  31. 31 GOTO21
  32. 32 IFMODE=0THEN21
  33. 33 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  34. 34 A=USR(21):A=USR(17):A=USR(19):A=USR(1)
  35. 35 GOSUB13:PRINTCHR$(14)"[147][198]ILE DISK IS IN DRIVE:  ";D1;
  36. 36 GETA$:IFA$=""THEN36
  37. 37 IF(D1=8)AND(A$="9")THEND1=9:POKE36863,D1
  38. 38 IF(D1=9)AND(A$="8")THEND1=8:POKE36863,D1
  39. 39 PRINT"[157][157]";D1
  40. 40 PRINT"$ FOR DIRECTORY
  41. 41 [153]"ASCILENAME: ";
  42. 42 [161]A$:[139]A$[178]""[167]42
  43. 43 [153]A$:[139]A$[178]"$"[167][158]36906:[137]41
  44. 44 [139]A$[178][199](13)[167]50
  45. 45 [159]2,D1,2,"@0:"[170]A$[170]".FIG,P,W":[152]2,[199](0);[199](158);:N[178]0:S[178]12
  46. 46 R[178][194](18048[170]N):[139]R[178]255[167]49
  47. 47 R[178]R[171]S:S[178]22[171]S:[139]R[179]0[167]R[178][182](R)[176]128
  48. 48 [152]2,[199](R);:N[178]N[170]1:[139]N[179]471[167]46
  49. 49 [152]2,[199](255);[199](255):[160]2
  50. 50 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](39),0,24:A[178][183](32),0
  51. 51 [141]13:[137]21
  52. 52 A[178][183](39),0,16:[129]T[178]0[164]3:A[178][183](33),T:[130]:[158]36912
  53. 53 [161]A$:[139]A$[178]""[167]53
  54. 54 [151]780,[198](A$):[158]32813
  55. 55 [137]1
  56. 56 FI$[178]"JJH(null)":[158]36864:DR[178][194](36863):[151]36863,[194](36862):[151]183,[195](FI$)
  57. 57 [129]T[178]1[164][195](FI$):[151]827[170]T,[198]([202](FI$,T,1)):[130]:[158]32792
  58. 58 [161]A$:[139]A$[178]""[167]58
  59. 59 A[178][183](39),0,25:[151]36863,DR:[158]36885:[142]
  60.